| HideTestNodesActionExecute method |
Applies to
TGUITestRunner
Declaration
Procedure HideTestNodesActionExecute(Sender: TObject);Implementation
procedure TGUITestRunner.HideTestNodesActionExecute(Sender: TObject);
var
ANode: TTreeNode;
begin
inherited;
TestTree.Items.BeginUpdate;
try
ANode := TestTree.Items[0];
if ANode <> nil then
begin
ANode.Expand(true);
CollapseNonGrandparentNodes(ANode);
ANode.Selected := true;
ANode.MakeVisible;
end;
finally
TestTree.Items.EndUpdate;
end;
End; |
|
|